﻿Class Application

    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
    ' can be handled in this file.



    Private Sub Application_Startup(ByVal sender As Object, ByVal e As System.Windows.StartupEventArgs) Handles Me.Startup
        'Variables
        Dim Splash As New System.Windows.SplashScreen("SplashScreen.png")

        'SplashScreen
        Splash.Show(False)
        Splash.Close(New TimeSpan(0, 0, 3))

        'Basic Skin support (Hardcode ftw)
        Select Case My.Settings.Skin
            Case "Windows"
                Me.StartupUri = New Uri("WindowsSkin.xaml", UriKind.Relative)
            Case Else
                Me.StartupUri = New Uri("Main.xaml", UriKind.Relative)
        End Select

    End Sub


End Class
